#!/usr/bin/perl


# Synopsis file for VAIS/J03P.

use strict;

use VAIS::GridGate;

# Set up new AIG gate
my $AIG = VAIS::GridGate->new(
  procId => "UniqueProcessID",
);

# register this process on the AIG
$AIG->mov('AA', $AIG->{procId});
  # Interrupt 0x00 registers what ever value is in AA.
$AIG->x00();



